CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swagn_r.zip/NUMBERS.SWG/0051_Ramdon Integer.pas

Pascal/Delphi Source File | 1994-08-24 | 200b | 11 lines

Function RandomInteger: Integer; Assembler;
asm
  mov ah,2ch
  int 21h     { Get a random seed from DOS's clock }
  imul 9821
  inc ax
  ror al,1
  rol ah,1    { Randomize the seed }
end;